50000 IFP$=""THENP$="WN1D1N"
50005 C$=LEFT$(P$,1):F$=MID$(P$,2,1)
50010 L=VAL(MID$(P$,3,1))
50020 IFL=1THENBAT=VAL(MID$(P$,5,1)):LF$=MID$(P$,4,1)
50030 IFL=0THENBAT=VAL(MID$(P$,5,1)):LF$=MID$(P$,4,1)
50040 IFBAT=1ANDL=1THENCU=VAL(MID$(P$,6,1))
50050 IFBAT=1ANDL=0THENCU=VAL(MID$(P$,6,1))
50070 IFCU=1ANDL=0THENCT$=MID$(P$,7,1)
50080 IFCU=1ANDL=1THENCT$=MID$(P$,7,1)
50085 IFCT$=""THENCT$=" [146]"
50086 F1$=F$
50090 IFC$="W"ANDF$="U"THENCO$="[151][152][155]"
50100 IFC$="W"ANDF$="D"THENCO$="[155][152][151]"
50105 IFC$="W"ANDLF$<>"N"THENG$="[155][152][151]"
50110 IFC$="B"ANDF$="U"THENCO$="[154][159]"
50120 IFC$="B"ANDF$="D"THENCO$="[159][154]"
50125 IFC$="B"ANDLF$<>"N"THENG$="[159][154]"
50130 IFC$="G"ANDF$="U"THENCO$="[153]"
50140 IFC$="G"ANDF$="D"THENCO$="[153]"
50145 IFC$="G"ANDLF$<>"N"THENG$="[153]"
50150 IFC$="R"ANDF$="U"THENCO$="[150]"
50160 IFC$="R"ANDF$="D"THENCO$="[150]"
50165 IFC$="R"ANDLF$<>"N"THENG$="[150]"
50170 IFC$="Y"ANDF$="U"THENCO$="[129][158]"
50180 IFC$="Y"ANDF$="D"THENCO$="[158][129]"
50182 F$=F1$
50185 IFC$="Y"ANDLF$<>"N"THENG$="[158][129]"
50190 K$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
50200 Y$=""
50210 LI$=LEFT$(K$,LEN(A$))
50212 V$=LEFT$(Y$,Y)
50215 IFBAT=1THEN50240
50220 IFF$="N"THENGOSUB50400:GOSUB50450
50230 IFF$<>"N"THENGOSUB50500
50240 IFCU=0ANDBAT=1THENGOSUB50600
50250 IFCU=1ANDBAT=1THENGOSUB50700
50260 IFL=0THENRETURN
50270 IFLF$="U"THENGOSUB51000
50275 IFLF$="D"THENGOSUB50800
50280 IFLF$="N"THENGOSUB50400:GOSUB50900
50395 RETURN
50400 IFC$="W"THENCO$="[151]"
50410 IFC$="B"THENCO$=""
50420 IFC$="G"THENCO$=""
50430 IFC$="R"THENCO$=""
50440 IFC$="Y"THENCO$=""
50445 RETURN
50450 PRINT"";TAB(X);V$;CO$;A$:RETURN
50500 FORK=1TO4:PRINT"";TAB(X);V$;MID$(CO$,K,1);A$
50510 FORT=1TOD:NEXTT
50520 NEXTK:RETURN
50600 PRINT"";TAB(X);V$;:GOSUB50400:PRINTCO$;
50605 FORK=1TOLEN(A$)
50610 PRINTMID$(A$,K,1);:FORT=1TOBD:NEXTT:IFS=1THENGOSUB51100
50620 NEXTK:RETURN
50700 PRINT"";TAB(X);V$;:GOSUB50400:PRINTCO$;
50705 FORK=1TOLEN(A$)
50710 PRINTMID$(A$,K,1);CT$;"[157]";:FORT=1TOBD:NEXTT
50720 IFS=1THENGOSUB51100
50730 NEXTK:PRINT" ":RETURN
50800 FORK=1TO4:PRINT"";TAB(X);V$;"";MID$(G$,K,1);LI$
50810 FORT=1TOD:NEXTT
50820 NEXTK:RETURN
50900 PRINT"";TAB(X);V$;"";LI$:RETURN
51000 FORK=4TO1STEP-1:PRINT"";TAB(X);V$;"";MID$(G$,K,1);LI$
51010 FORT=1TOD:NEXTT
51020 NEXTK:RETURN
51100 POKE54296,8:POKE54296,0:RETURN